COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FUNCTION DURENV(ARRAY INP,ARRAY OUT,ATK,DK,DUR)
C00003 ENDMK
C⊗;
FUNCTION DURENV(ARRAY INP,ARRAY OUT,ATK,DK,DUR);
BEGIN VARIABLE I,IR,INC,J;
        INC←DUR/(4*ATK);
	J←0;	IR←0;
	WHILE IR≤127 DO BEGIN
	    I←INT(IR);
	    OUT(J)←INP(I)+(IR-I)*(INP(I+1)-INP(I));
	    IR←IR+INC;J←J+1;
	END;
        INC←DUR/(4*(DUR-ATK-DK));
	WHILE IR≤255 DO BEGIN
	    I←INT(IR);
	    OUT(J)←INP(I)+(IR-I)*(INP(I+1)-INP(I));
	    IR←IR+INC;J←J+1;
	END;
        INC←DUR/(4*DK);
	WHILE J≤512 DO BEGIN
	    I←INT(IR);
	    OUT(J)←INP(I)+(IR-I)*(INP(I+1)-INP(I));
	    IR←IR+INC;J←J+1;
	END;
END;